(set hello (cat "\n\n\nThis will extract the " @app-name" archive\nto your chosen location.\n\n\nSelect NOVICE to simply extract\n to RAM: or a floppy drive."))
(set noDiscSpace (cat "\n\n" @default-dest " has not enought space on it."))
(set extractionError (cat "\n\nOh dear something went wrong with lha.\n\nSource archive " ))
(set lowMem (cat "\nSorry you only have " totalMem " bytes of RAM,\nand you need " arcSize " bytes, to be able\nto extract " @app-name " into RAM:.\n\n\nTry removing some other applications,\nor use a blank floppy disc."))
(set discRequest (cat "\n\n\n\n\nPlease insert a (blank) disc into "))
(set lowDiskSpace (cat ": does not have enought room for " @app-name " to fit. You can either replace the current disk with another or I will format the current one."))
(set removeCoverDisc (cat "\n\n\n\n\nPlease remove the cover disc,\n\nand insert a (blank) disc in "))
;(set formatCheck (cat ", does not have enough room. You will have to format it.\n\nTo do this click on its icon, and then select 'Format Disk' from the Workbench menu.\nFormating a disc DESTROYS ALL the data on a disc.\nPress YES when done or NO to
(set deviceTooSmall (cat " bytes,\nand so " @app-name " cannot fit onto it.\n\nTry using RAM:, or buy a hard drive.\n\n\n\n(You won't regret it;-)"))
(set @askchoice-help (cat "\n\nEach button represent a destination. You can select either to extract the program into RAM:, or onto a floppy disc using one of the drives.\n\nSimply press the appropriate button, then proceed."))
(set wrongKick (cat "\n\nWarning, you need at least Kickstart v" requiredKick " (" Kickversion ")\n\nto use " @app-name ".\n\n\nPress 'proceed' to continue anyway;\n\n\n\nBut you won't be able to run the program!"))
(if (getassign "DF1" "d") ;check for external disc drive, and set correct procedure
(procedure @noviceGetDest
(set destination (cat (askchoice
(prompt "Where do you want me to put " @app-name "?")
(choices "RAM: {Recommended}")
(help @askchoice-help)
) )
)
)
(procedure @noviceGetDest
(set destination (cat (askchoice
(prompt "Where do you want me to put " @app-name "?")
(choices "RAM: {Recommended}")
(help @askchoice-help)
) )
)
)
)
(procedure @getdefault-dest
(set destination (askdir
(help @askdir-help)
(prompt "Where Do you want " @app-name " extracting?")
(newpath)
(default @default-dest)
)
)
(set @default-dest destination)
)
(procedure @noviceUnArc ;handles quick extraction to ram or floppy
(working "\n\n\n\nExtracting " @app-name " to " @default-dest ",\n\nplease wait....")
(@expertUnArc)
(complete 100)
(message "Installation complete!\n\n\n\n\n" @app-name " has been successfully extracted,\nand can be found in " @default-dest ".\n\nHope it wasn't too painful!!")